home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / BBS-Archive / Dev / GNU-SMALLTALK.lha / CType.st < prev    next >
Text File  |  1992-02-16  |  2KB  |  72 lines
  1. "======================================================================
  2. |
  3. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  4. | Written by Steve Byrne.
  5. |
  6. | This file is part of GNU Smalltalk.
  7. |
  8. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  9. | under the terms of the GNU General Public License as published by the Free
  10. | Software Foundation; either version 1, or (at your option) any later version.
  11. | 
  12. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  13. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  14. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  15. | details.
  16. | 
  17. | You should have received a copy of the GNU General Public License along with
  18. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  19. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  20. |
  21.  ======================================================================"
  22.  
  23. "
  24. |     Change Log
  25. | ============================================================================
  26. | Author       Date       Change 
  27. | sbb         16 Feb 92      created summer 90
  28. |
  29. "
  30.  
  31. !CType class methodsFor: 'instance creation'!
  32.  
  33. baseType: aBaseType
  34.     ^self baseType: aBaseType subType: nil
  35. !
  36.  
  37. baseType: aBaseType subType: aSubType
  38.     ^self baseType: aBaseType subType: aSubType numElements: 1
  39. !
  40.  
  41. baseType: aBaseType subType: aSubType numElements: anInteger
  42.     ^self new baseType: aBaseType subType: aSubType numElements: anInteger
  43. !!
  44.  
  45. !CType methodsFor: 'accessing'!
  46.  
  47. subType
  48.     ^subType
  49. !
  50.  
  51. baseType
  52.     ^baseType
  53. !
  54.  
  55. numElements
  56.     ^numElements
  57. !
  58.  
  59. sizeof
  60.     ^numElements * subType sizeof
  61. !!
  62.  
  63.  
  64. !CType methodsFor: 'private'!
  65.  
  66. baseType: aBaseType subType: aSubType numElements: anInteger
  67.     baseType _ aBaseType.
  68.     subType _ aSubType.
  69.     numElements _ anInteger
  70. !!
  71.  
  72.